home *** CD-ROM | disk | FTP | other *** search
/ CD Classic 39 / CD CLASSIC #39 (1998).iso / EMPRESA / FACTPLUS / DISCO7 / CLIENTE.XT_ / CLIENTE.bin
Text File  |  1997-11-14  |  1KB  |  44 lines
  1. <HTML>
  2. <TITLE><<TituloPagina()>></TITLE>
  3. <HEAD>
  4. <META HTTP-EQUIV="Expires" CONTENT="Mon, 06 Jan 1990 00:00:01 GMT">
  5. <SCRIPT>
  6.  
  7. function Longitud()
  8. {
  9.     if ( ( document.DatosCliente.elements[ 0 ].value == "" ) ||
  10.          ( document.DatosCliente.elements[ 1 ].value == "" ) ||
  11.          ( document.DatosCliente.elements[ 2 ].value == "" ) ||
  12.          ( document.DatosCliente.elements[ 3 ].value == "" ) ||
  13.          ( document.DatosCliente.elements[ 4 ].value == "" ) ||
  14.          ( document.DatosCliente.elements[ 5 ].value == "" ) )
  15.        {
  16.           alert( "Debe rellenar todos los campos salvo fax y e-mail" )
  17.           return false
  18.         }
  19.     else
  20.         {
  21.           return true
  22.         }
  23. }
  24.  
  25. function SaveCliente()
  26. {
  27.    if ( Longitud() )
  28.    {
  29.       <<ClienteACookie()>>
  30.       location.href = "savecli.htm"
  31.    }
  32. }
  33. </SCRIPT>
  34. </HEAD>
  35. <<FONDO(.T.)>>
  36. <H2 ALIGN="CENTER"><<CartaNomEmp()>></H2>
  37. <CENTER>
  38.    <FORM NAME="DatosCliente">
  39.         <<EditaCliente("#EE0077", "#FFFFFF")>>
  40.    </FORM>
  41. </CENTER>
  42. <BR><BR>
  43. <CENTER><<CartaDir()>></CENTER>
  44. </HTML>